home *** CD-ROM | disk | FTP | other *** search
/ MacHack 1996 / MacHack 1996.toast / Hacks / Hacks ’87 / Source ƒ.sit / Source ƒ / Pascal ƒ / Directory Massager / DirMassage.Pas < prev    next >
MacBinary  |  1987-03-01  |  6.3 KB  |  [TEXT/EDIT]
open in: MacOS 8.1     |     Win98     |     DOS

browse contents    |     view JSON data     |     view as text


This file was processed as: MacBinary (archive/macBinary).

ConfidenceProgramDetectionMatch TypeSupport
10% dexvert MacBinary (archive/macBinary) fallback Supported
1% dexvert TheDraw Pascal screen Image (image/theDrawPascalScreenImage) ext Unsupported
1% dexvert Text File (text/txt) fallback Supported
100% file MacBinary II, inited, Sun Mar 1 06:37:06 1987, modified Sun Mar 1 06:37:06 1987, creator Macintosh Edit, type ASCII, 5698 bytes "DirMassage.Pas" , at 0x16c2 414 bytes resource default (weak)
99% file data default
74% TrID Macintosh plain text (MacBinary) default
25% TrID MacBinary 2 default (weak)
100% siegfried fmt/1762 MacBinary (II) default
100% lsar MacBinary default


id metadata
keyvalue
macFileType[TEXT]
macFileCreator[EDIT]


hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0e 44 69 72 4d 61 73 | 73 61 67 65 2e 50 61 73 |..DirMas|sage.Pas|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 45 44 49 | 54 01 00 00 00 00 00 00 |.TEXTEDI|T.......|
|00000050| 00 00 00 00 00 16 42 00 | 00 01 9e 9c 6d cd e2 9c |......B.|....m...|
|00000060| 6d cd e2 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |m.......|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 db a4 00 00 |........|........|
|00000080| 70 72 6f 67 72 61 6d 20 | 47 65 6e 69 65 44 69 72 |program |GenieDir|
|00000090| 3b 7b 4e 6f 76 65 6d 62 | 65 72 20 33 30 2c 31 39 |;{Novemb|er 30,19|
|000000a0| 38 36 3b 44 65 63 20 31 | 34 2c 38 36 3b 46 65 62 |86;Dec 1|4,86;Feb|
|000000b0| 32 32 2c 38 37 7d 0d 20 | 55 53 45 53 20 4d 61 63 |22,87}. |USES Mac|
|000000c0| 49 6e 74 66 3b 0d 20 20 | 20 20 20 20 7b 24 4c 20 |Intf;.  |    {$L |
|000000d0| 44 69 72 4d 61 73 73 61 | 67 65 2f 52 73 72 63 7d |DirMassa|ge/Rsrc}|
|000000e0| 0d 20 20 20 20 20 20 7b | 24 54 20 27 41 50 50 4c |.      {|$T 'APPL|
|000000f0| 27 20 27 54 4d 4c 50 27 | 7d 0d 20 63 6f 6e 73 74 |' 'TMLP'|}. const|
|00000100| 20 7b 6d 65 6e 75 20 69 | 64 73 7d 0d 20 20 61 70 | {menu i|ds}.  ap|
|00000110| 70 6c 65 4d 65 6e 75 20 | 3d 20 31 30 30 30 3b 20 |pleMenu |= 1000; |
|00000120| 7b 44 41 20 6d 65 6e 75 | 7d 0d 20 20 46 69 6c 65 |{DA menu|}.  File|
|00000130| 4d 65 6e 75 20 3d 20 31 | 30 30 31 3b 0d 20 20 4d |Menu = 1|001;.  M|
|00000140| 61 73 73 4d 65 6e 75 20 | 3d 20 31 30 30 32 3b 0d |assMenu |= 1002;.|
|00000150| 20 20 6c 61 73 74 4d 65 | 6e 75 20 3d 20 33 3b 0d |  lastMe|nu = 3;.|
|00000160| 20 20 64 69 61 6c 6f 67 | 48 6f 6f 6b 20 3d 20 6e |  dialog|Hook = n|
|00000170| 69 6c 3b 0d 20 20 66 69 | 6c 65 46 69 6c 74 65 72 |il;.  fi|leFilter|
|00000180| 20 3d 20 6e 69 6c 3b 20 | 7b 66 6f 72 20 53 46 72 | = nil; |{for SFr|
|00000190| 6f 75 74 69 6e 65 73 7d | 0d 20 20 6e 75 6d 54 79 |outines}|.  numTy|
|000001a0| 70 65 73 20 3d 20 31 3b | 0d 20 20 0d 20 76 61 72 |pes = 1;|.  . var|
|000001b0| 0d 20 20 64 6f 6e 65 20 | 3a 09 62 6f 6f 6c 65 61 |.  done |:.boolea|
|000001c0| 6e 3b 0d 20 20 66 69 6e | 69 73 68 20 3a 09 74 65 |n;.  fin|ish :.te|
|000001d0| 78 74 3b 09 7b 66 6f 72 | 20 6f 75 74 70 75 74 20 |xt;.{for| output |
|000001e0| 66 69 6c 65 7d 0d 20 20 | 66 69 72 73 74 6c 69 6e |file}.  |firstlin|
|000001f0| 65 20 3a 09 73 74 72 69 | 6e 67 3b 09 7b 66 72 6f |e :.stri|ng;.{fro|
|00000200| 6d 20 69 6e 70 75 74 20 | 66 69 6c 65 7d 0d 20 20 |m input |file}.  |
|00000210| 69 6e 64 65 78 20 3a 09 | 69 6e 74 65 67 65 72 3b |index :.|integer;|
|00000220| 0d 20 20 69 6e 69 74 54 | 65 78 74 20 3a 09 73 74 |.  initT|ext :.st|
|00000230| 72 69 6e 67 3b 09 7b 70 | 72 6f 6d 70 74 7d 0d 20 |ring;.{p|rompt}. |
|00000240| 20 69 74 65 6d 20 3a 09 | 61 72 72 61 79 5b 30 2e | item :.|array[0.|
|00000250| 2e 37 5d 20 6f 66 20 73 | 74 72 69 6e 67 3b 0d 20 |.7] of s|tring;. |
|00000260| 20 6d 79 4d 65 6e 75 73 | 20 3a 09 61 72 72 61 79 | myMenus| :.array|
|00000270| 5b 31 2e 2e 6c 61 73 74 | 4d 65 6e 75 5d 20 6f 66 |[1..last|Menu] of|
|00000280| 20 4d 65 6e 75 48 61 6e | 64 6c 65 3b 0d 20 20 70 | MenuHan|dle;.  p|
|00000290| 72 6f 6d 70 74 53 74 72 | 69 6e 67 3a 09 73 74 72 |romptStr|ing:.str|
|000002a0| 69 6e 67 3b 0d 20 20 72 | 65 70 6c 79 3a 09 53 46 |ing;.  r|eply:.SF|
|000002b0| 52 65 70 6c 79 3b 0d 20 | 20 73 65 63 6f 6e 64 6c |Reply;. | secondl|
|000002c0| 69 6e 65 20 3a 09 73 74 | 72 69 6e 67 3b 09 7b 66 |ine :.st|ring;.{f|
|000002d0| 72 6f 6d 20 69 6e 70 75 | 74 20 66 69 6c 65 7d 0d |rom inpu|t file}.|
|000002e0| 20 20 74 79 70 65 4c 69 | 73 74 3a 09 53 46 54 79 |  typeLi|st:.SFTy|
|000002f0| 70 65 4c 69 73 74 3b 0d | 20 20 73 6f 75 72 63 65 |peList;.|  source|
|00000300| 20 3a 09 74 65 78 74 3b | 09 7b 69 6e 70 75 74 20 | :.text;|.{input |
|00000310| 66 69 6c 65 7d 0d 20 20 | 74 68 65 44 69 61 6c 6f |file}.  |theDialo|
|00000320| 67 3a 09 44 69 61 6c 6f | 67 50 74 72 3b 0d 20 20 |g:.Dialo|gPtr;.  |
|00000330| 74 68 65 45 76 74 3a 09 | 45 76 65 6e 74 52 65 63 |theEvt:.|EventRec|
|00000340| 6f 72 64 3b 0d 20 20 74 | 68 65 57 69 6e 64 6f 77 |ord;.  t|heWindow|
|00000350| 20 3a 09 57 69 6e 64 6f | 77 50 74 72 3b 0d 20 20 | :.Windo|wPtr;.  |
|00000360| 74 6f 70 4c 65 66 74 3a | 09 50 6f 69 6e 74 3b 09 |topLeft:|.Point;.|
|00000370| 7b 66 6f 72 20 6d 69 6e | 69 66 69 6e 64 65 72 20 |{for min|ifinder |
|00000380| 62 6f 78 7d 0d 20 20 0d | 70 72 6f 63 65 64 75 72 |box}.  .|procedur|
|00000390| 65 20 53 65 74 55 70 4d | 65 6e 75 73 3b 0d 20 76 |e SetUpM|enus;. v|
|000003a0| 61 72 0d 20 20 69 20 3a | 20 69 6e 74 65 67 65 72 |ar.  i :| integer|
|000003b0| 3b 0d 20 62 65 67 69 6e | 09 7b 70 72 6f 63 65 64 |;. begin|.{proced|
|000003c0| 75 72 65 20 53 65 74 55 | 70 4d 65 6e 75 73 7d 0d |ure SetU|pMenus}.|
|000003d0| 20 20 49 6e 69 74 4d 65 | 6e 75 73 3b 0d 20 20 6d |  InitMe|nus;.  m|
|000003e0| 79 4d 65 6e 75 73 5b 31 | 5d 20 3a 3d 20 47 65 74 |yMenus[1|] := Get|
|000003f0| 4d 65 6e 75 28 61 70 70 | 6c 65 4d 65 6e 75 29 3b |Menu(app|leMenu);|
|00000400| 0d 20 20 6d 79 4d 65 6e | 75 73 5b 32 5d 20 3a 3d |.  myMen|us[2] :=|
|00000410| 20 47 65 74 4d 65 6e 75 | 28 66 69 6c 65 4d 65 6e | GetMenu|(fileMen|
|00000420| 75 29 3b 0d 20 20 6d 79 | 4d 65 6e 75 73 5b 33 5d |u);.  my|Menus[3]|
|00000430| 20 3a 3d 20 47 65 74 4d | 65 6e 75 28 4d 61 73 73 | := GetM|enu(Mass|
|00000440| 4d 65 6e 75 29 3b 0d 20 | 20 41 64 64 52 65 73 4d |Menu);. | AddResM|
|00000450| 65 6e 75 28 6d 79 4d 65 | 6e 75 73 5b 31 5d 2c 27 |enu(myMe|nus[1],'|
|00000460| 44 52 56 52 27 29 3b 0d | 20 20 66 6f 72 20 69 20 |DRVR');.|  for i |
|00000470| 3a 3d 20 31 20 74 6f 20 | 6c 61 73 74 4d 65 6e 75 |:= 1 to |lastMenu|
|00000480| 20 64 6f 0d 20 20 20 49 | 6e 73 65 72 74 4d 65 6e | do.   I|nsertMen|
|00000490| 75 28 6d 79 4d 65 6e 75 | 73 5b 69 5d 2c 30 29 3b |u(myMenu|s[i],0);|
|000004a0| 0d 20 20 44 72 61 77 4d | 65 6e 75 42 61 72 3b 0d |.  DrawM|enuBar;.|
|000004b0| 20 65 6e 64 3b 09 7b 6f | 66 20 70 72 6f 63 65 64 | end;.{o|f proced|
|000004c0| 75 72 65 20 53 65 74 55 | 70 4d 65 6e 75 73 7d 0d |ure SetU|pMenus}.|
|000004d0| 70 72 6f 63 65 64 75 72 | 65 20 53 65 74 55 70 53 |procedur|e SetUpS|
|000004e0| 79 73 3b 0d 20 62 65 67 | 69 6e 09 7b 70 72 6f 63 |ys;. beg|in.{proc|
|000004f0| 65 64 75 72 65 20 53 65 | 74 55 70 53 79 73 7d 0d |edure Se|tUpSys}.|
|00000500| 20 20 49 6e 69 74 47 72 | 61 66 28 40 74 68 65 50 |  InitGr|af(@theP|
|00000510| 6f 72 74 29 3b 0d 20 20 | 49 6e 69 74 46 6f 6e 74 |ort);.  |InitFont|
|00000520| 73 3b 0d 20 20 49 6e 69 | 74 57 69 6e 64 6f 77 73 |s;.  Ini|tWindows|
|00000530| 3b 0d 20 20 54 45 49 6e | 69 74 3b 0d 20 20 49 6e |;.  TEIn|it;.  In|
|00000540| 69 74 44 69 61 6c 6f 67 | 73 28 6e 69 6c 29 3b 0d |itDialog|s(nil);.|
|00000550| 20 20 53 65 74 45 76 65 | 6e 74 4d 61 73 6b 28 65 |  SetEve|ntMask(e|
|00000560| 76 65 72 79 45 76 65 6e | 74 29 3b 0d 20 20 46 6c |veryEven|t);.  Fl|
|00000570| 75 73 68 45 76 65 6e 74 | 73 28 65 76 65 72 79 45 |ushEvent|s(everyE|
|00000580| 76 65 6e 74 2c 30 29 3b | 0d 20 20 53 65 74 55 70 |vent,0);|.  SetUp|
|00000590| 4d 65 6e 75 73 3b 0d 20 | 20 49 6e 69 74 43 75 72 |Menus;. | InitCur|
|000005a0| 73 6f 72 3b 0d 20 20 64 | 6f 6e 65 20 3a 3d 20 66 |sor;.  d|one := f|
|000005b0| 61 6c 73 65 3b 0d 20 65 | 6e 64 3b 09 7b 6f 66 70 |alse;. e|nd;.{ofp|
|000005c0| 72 6f 63 65 64 75 72 65 | 20 53 65 74 55 70 53 79 |rocedure| SetUpSy|
|000005d0| 73 7d 0d 50 72 6f 63 65 | 64 75 72 65 20 55 70 64 |s}.Proce|dure Upd|
|000005e0| 61 74 65 53 79 73 3b 0d | 20 62 65 67 69 6e 09 7b |ateSys;.| begin.{|
|000005f0| 50 72 6f 63 65 64 75 72 | 65 20 55 70 64 61 74 65 |Procedur|e Update|
|00000600| 53 79 73 7d 0d 20 20 53 | 79 73 74 65 6d 54 61 73 |Sys}.  S|ystemTas|
|00000610| 6b 3b 0d 20 65 6e 64 3b | 09 7b 50 72 6f 63 65 64 |k;. end;|.{Proced|
|00000620| 75 72 65 20 55 70 64 61 | 74 65 53 79 73 7d 0d 70 |ure Upda|teSys}.p|
|00000630| 72 6f 63 65 64 75 72 65 | 20 51 75 69 74 46 69 6c |rocedure| QuitFil|
|00000640| 65 3b 0d 20 62 65 67 69 | 6e 0d 20 20 64 6f 6e 65 |e;. begi|n.  done|
|00000650| 20 3a 3d 20 74 72 75 65 | 3b 0d 20 65 6e 64 3b 0d | := true|;. end;.|
|00000660| 70 72 6f 63 65 64 75 72 | 65 20 66 69 6e 64 3b 0d |procedur|e find;.|
|00000670| 20 76 61 72 0d 20 20 68 | 6d 6d 20 3a 20 73 74 72 | var.  h|mm : str|
|00000680| 69 6e 67 3b 0d 20 20 79 | 65 74 20 3a 20 62 6f 6f |ing;.  y|et : boo|
|00000690| 6c 65 61 6e 3b 0d 20 62 | 65 67 69 6e 7b 70 72 6f |lean;. b|egin{pro|
|000006a0| 63 65 64 75 72 65 20 66 | 69 6e 64 7d 0d 20 20 72 |cedure f|ind}.  r|
|000006b0| 65 70 65 61 74 0d 20 20 | 20 79 65 74 20 3a 3d 20 |epeat.  | yet := |
|000006c0| 66 61 6c 73 65 3b 09 7b | 64 6f 20 77 65 20 68 61 |false;.{|do we ha|
|000006d0| 76 65 20 61 20 6c 65 67 | 69 74 20 66 69 72 73 74 |ve a leg|it first|
|000006e0| 20 6c 69 6e 65 3f 7d 0d | 20 20 20 72 65 61 64 6c | line?}.|   readl|
|000006f0| 6e 28 73 6f 75 72 63 65 | 2c 20 66 69 72 73 74 6c |n(source|, firstl|
|00000700| 69 6e 65 29 3b 0d 20 20 | 20 69 66 20 6c 65 6e 67 |ine);.  | if leng|
|00000710| 74 68 28 66 69 72 73 74 | 6c 69 6e 65 29 20 3c 20 |th(first|line) < |
|00000720| 34 20 74 68 65 6e 09 7b | 74 68 69 73 20 69 73 6e |4 then.{|this isn|
|00000730| 27 74 20 69 74 2c 20 62 | 75 74 20 6c 65 74 27 73 |'t it, b|ut let's|
|00000740| 20 64 6f 6e 27 74 20 62 | 6f 6d 62 7d 0d 20 20 20 | don't b|omb}.   |
|00000750| 20 66 69 72 73 74 6c 69 | 6e 65 20 3a 3d 20 27 78 | firstli|ne := 'x|
|00000760| 78 78 78 27 3b 0d 20 20 | 20 68 6d 6d 20 3a 3d 20 |xxx';.  | hmm := |
|00000770| 63 6f 70 79 28 66 69 72 | 73 74 6c 69 6e 65 2c 34 |copy(fir|stline,4|
|00000780| 2c 31 29 3b 09 7b 64 6f | 65 73 20 69 74 20 6c 6f |,1);.{do|es it lo|
|00000790| 6f 6b 20 6c 69 6b 65 20 | 61 20 73 65 72 69 61 6c |ok like |a serial|
|000007a0| 20 6e 75 6d 62 65 72 3f | 7d 0d 20 20 20 69 66 20 | number?|}.   if |
|000007b0| 28 28 68 6d 6d 20 3e 27 | 2f 27 29 61 6e 64 28 68 |((hmm >'|/')and(h|
|000007c0| 6d 6d 3c 27 3a 27 29 29 | 20 74 68 65 6e 0d 20 20 |mm<':'))| then.  |
|000007d0| 20 20 79 65 74 20 3a 3d | 20 74 72 75 65 3b 0d 20 |  yet :=| true;. |
|000007e0| 20 20 69 66 20 65 6f 66 | 28 73 6f 75 72 63 65 29 |  if eof|(source)|
|000007f0| 20 74 68 65 6e 20 79 65 | 74 20 3a 3d 20 74 72 75 | then ye|t := tru|
|00000800| 65 3b 0d 20 20 75 6e 74 | 69 6c 20 79 65 74 3b 0d |e;.  unt|il yet;.|
|00000810| 20 20 69 66 20 65 6f 66 | 28 73 6f 75 72 63 65 29 |  if eof|(source)|
|00000820| 20 74 68 65 6e 0d 20 20 | 20 73 65 63 6f 6e 64 6c | then.  | secondl|
|00000830| 69 6e 65 20 3a 3d 20 27 | 20 20 20 20 20 20 44 65 |ine := '|      De|
|00000840| 73 63 3a 20 6c 6f 73 74 | 20 74 68 65 20 64 65 73 |sc: lost| the des|
|00000850| 63 72 69 70 74 69 6f 6e | 27 20 7b 73 6f 20 77 65 |cription|' {so we|
|00000860| 27 6c 6c 20 61 6c 77 61 | 79 73 20 68 61 76 65 20 |'ll alwa|ys have |
|00000870| 61 20 73 65 63 6f 6e 64 | 6c 69 6e 65 7d 0d 20 20 |a second|line}.  |
|00000880| 65 6c 73 65 0d 20 20 20 | 72 65 61 64 6c 6e 28 73 |else.   |readln(s|
|00000890| 6f 75 72 63 65 2c 20 73 | 65 63 6f 6e 64 6c 69 6e |ource, s|econdlin|
|000008a0| 65 29 3b 0d 20 65 6e 64 | 3b 09 7b 6f 66 20 70 72 |e);. end|;.{of pr|
|000008b0| 6f 63 65 64 75 72 65 20 | 66 69 6e 64 7d 0d 70 72 |ocedure |find}.pr|
|000008c0| 6f 63 65 64 75 72 65 20 | 70 65 65 6c 3b 0d 20 76 |ocedure |peel;. v|
|000008d0| 61 72 0d 20 20 69 6e 64 | 65 78 20 3a 20 69 6e 74 |ar.  ind|ex : int|
|000008e0| 65 67 65 72 3b 0d 20 62 | 65 67 69 6e 09 7b 70 72 |eger;. b|egin.{pr|
|000008f0| 6f 63 65 64 75 72 65 20 | 70 65 65 6c 7d 0d 20 20 |ocedure |peel}.  |
|00000900| 69 74 65 6d 5b 30 5d 20 | 3a 3d 20 63 6f 70 79 28 |item[0] |:= copy(|
|00000910| 66 69 72 73 74 6c 69 6e | 65 2c 20 31 2c 20 36 29 |firstlin|e, 1, 6)|
|00000920| 3b 09 7b 73 65 72 69 61 | 6c 20 6e 75 6d 62 65 72 |;.{seria|l number|
|00000930| 7d 0d 20 20 69 74 65 6d | 5b 31 5d 20 3a 3d 20 63 |}.  item|[1] := c|
|00000940| 6f 70 79 28 66 69 72 73 | 74 6c 69 6e 65 2c 20 37 |opy(firs|tline, 7|
|00000950| 2c 20 32 35 29 3b 09 7b | 6e 61 6d 65 7d 0d 20 20 |, 25);.{|name}.  |
|00000960| 69 74 65 6d 5b 32 5d 20 | 3a 3d 20 63 6f 70 79 28 |item[2] |:= copy(|
|00000970| 66 69 72 73 74 6c 69 6e | 65 2c 20 33 32 2c 20 31 |firstlin|e, 32, 1|
|00000980| 35 29 3b 09 7b 74 79 70 | 65 20 26 20 73 6f 75 72 |5);.{typ|e & sour|
|00000990| 63 65 7d 0d 20 20 69 74 | 65 6d 5b 33 5d 20 3a 3d |ce}.  it|em[3] :=|
|000009a0| 20 63 6f 70 79 28 66 69 | 72 73 74 6c 69 6e 65 2c | copy(fi|rstline,|
|000009b0| 20 34 37 2c 20 37 29 3b | 09 7b 64 61 74 65 7d 0d | 47, 7);|.{date}.|
|000009c0| 20 20 69 74 65 6d 5b 34 | 5d 20 3a 3d 20 63 6f 70 |  item[4|] := cop|
|000009d0| 79 28 66 69 72 73 74 6c | 69 6e 65 2c 20 35 34 2c |y(firstl|ine, 54,|
|000009e0| 20 38 29 3b 09 7b 73 69 | 7a 65 7d 0d 20 20 69 74 | 8);.{si|ze}.  it|
|000009f0| 65 6d 5b 35 5d 20 3a 3d | 20 63 6f 70 79 28 66 69 |em[5] :=| copy(fi|
|00000a00| 72 73 74 6c 69 6e 65 2c | 20 36 32 2c 20 37 29 3b |rstline,| 62, 7);|
|00000a10| 09 7b 61 63 63 65 73 73 | 65 73 7d 0d 20 20 69 74 |.{access|es}.  it|
|00000a20| 65 6d 5b 36 5d 20 3a 3d | 20 63 6f 70 79 28 66 69 |em[6] :=| copy(fi|
|00000a30| 72 73 74 6c 69 6e 65 2c | 20 36 39 2c 20 33 29 3b |rstline,| 69, 3);|
|00000a40| 09 7b 6c 69 62 72 61 72 | 79 20 6e 75 6d 62 65 72 |.{librar|y number|
|00000a50| 7d 0d 20 20 69 74 65 6d | 5b 37 5d 20 3a 3d 20 63 |}.  item|[7] := c|
|00000a60| 6f 70 79 28 73 65 63 6f | 6e 64 6c 69 6e 65 2c 20 |opy(seco|ndline, |
|00000a70| 31 33 2c 20 6c 65 6e 67 | 74 68 28 73 65 63 6f 6e |13, leng|th(secon|
|00000a80| 64 6c 69 6e 65 29 29 3b | 20 7b 74 68 65 20 44 65 |dline));| {the De|
|00000a90| 73 63 3a 20 74 61 6b 65 | 20 69 74 20 61 6c 6c 7d |sc: take| it all}|
|00000aa0| 0d 20 20 66 6f 72 20 69 | 6e 64 65 78 20 3a 3d 20 |.  for i|ndex := |
|00000ab0| 30 20 74 6f 20 37 20 64 | 6f 0d 20 20 20 62 65 67 |0 to 7 d|o.   beg|
|00000ac0| 69 6e 7b 63 75 74 20 73 | 70 61 63 65 73 7d 0d 20 |in{cut s|paces}. |
|00000ad0| 20 20 77 68 69 6c 65 20 | 70 6f 73 28 27 20 27 2c |  while |pos(' ',|
|00000ae0| 20 69 74 65 6d 5b 69 6e | 64 65 78 5d 29 20 3d 20 | item[in|dex]) = |
|00000af0| 31 20 64 6f 0d 20 20 20 | 20 64 65 6c 65 74 65 28 |1 do.   | delete(|
|00000b00| 69 74 65 6d 5b 69 6e 64 | 65 78 5d 2c 20 31 2c 20 |item[ind|ex], 1, |
|00000b10| 31 29 3b 0d 20 20 20 77 | 68 69 6c 65 20 28 63 6f |1);.   w|hile (co|
|00000b20| 70 79 28 69 74 65 6d 5b | 69 6e 64 65 78 5d 2c 20 |py(item[|index], |
|00000b30| 6c 65 6e 67 74 68 28 69 | 74 65 6d 5b 69 6e 64 65 |length(i|tem[inde|
|00000b40| 78 5d 29 2c 20 31 29 20 | 3d 20 27 20 27 29 20 64 |x]), 1) |= ' ') d|
|00000b50| 6f 0d 20 20 20 20 64 65 | 6c 65 74 65 28 69 74 65 |o.    de|lete(ite|
|00000b60| 6d 5b 69 6e 64 65 78 5d | 2c 20 6c 65 6e 67 74 68 |m[index]|, length|
|00000b70| 28 69 74 65 6d 5b 69 6e | 64 65 78 5d 29 2c 20 31 |(item[in|dex]), 1|
|00000b80| 29 3b 0d 20 20 20 65 6e | 64 3b 7b 6f 66 20 63 75 |);.   en|d;{of cu|
|00000b90| 74 20 73 70 61 63 65 73 | 7d 0d 20 65 6e 64 3b 09 |t spaces|}. end;.|
|00000ba0| 7b 6f 66 20 70 72 6f 63 | 65 64 75 72 65 20 70 65 |{of proc|edure pe|
|00000bb0| 65 6c 7d 0d 0d 70 72 6f | 63 65 64 75 72 65 20 4d |el}..pro|cedure M|
|00000bc0| 61 73 73 61 67 65 3b 0d | 20 62 65 67 69 6e 09 7b |assage;.| begin.{|
|00000bd0| 70 72 6f 63 65 64 75 72 | 65 20 4d 61 73 73 61 67 |procedur|e Massag|
|00000be0| 65 7d 0d 20 20 70 72 6f | 6d 70 74 53 74 72 69 6e |e}.  pro|mptStrin|
|00000bf0| 67 3a 3d 27 57 68 69 63 | 68 20 74 6f 20 6d 61 73 |g:='Whic|h to mas|
|00000c00| 73 61 67 65 3f 27 3b 09 | 7b 74 6f 6f 20 62 61 64 |sage?';.|{too bad|
|00000c10| 20 74 68 69 73 20 64 6f | 65 73 6e 27 74 20 73 68 | this do|esn't sh|
|00000c20| 6f 77 20 75 70 20 69 6e | 20 74 68 65 20 6d 69 6e |ow up in| the min|
|00000c30| 69 66 69 6e 64 65 72 20 | 62 6f 78 7d 0d 20 20 77 |ifinder |box}.  w|
|00000c40| 69 74 68 20 74 6f 70 4c | 65 66 74 20 64 6f 0d 20 |ith topL|eft do. |
|00000c50| 20 20 62 65 67 69 6e 20 | 68 3a 3d 20 32 30 3b 76 |  begin |h:= 20;v|
|00000c60| 3a 3d 32 30 20 65 6e 64 | 3b 0d 20 20 54 79 70 65 |:=20 end|;.  Type|
|00000c70| 4c 69 73 74 5b 30 5d 20 | 3a 3d 20 27 54 45 58 54 |List[0] |:= 'TEXT|
|00000c80| 27 3b 0d 20 20 53 46 47 | 65 74 46 69 6c 65 28 74 |';.  SFG|etFile(t|
|00000c90| 6f 70 4c 65 66 74 2c 70 | 72 6f 6d 70 74 53 74 72 |opLeft,p|romptStr|
|00000ca0| 69 6e 67 2c 66 69 6c 65 | 46 69 6c 74 65 72 2c 6e |ing,file|Filter,n|
|00000cb0| 75 6d 54 79 70 65 73 2c | 74 79 70 65 4c 69 73 74 |umTypes,|typeList|
|00000cc0| 2c 64 69 61 6c 6f 67 48 | 6f 6f 6b 2c 72 65 70 6c |,dialogH|ook,repl|
|00000cd0| 79 29 3b 0d 20 20 69 66 | 20 72 65 70 6c 79 2e 67 |y);.  if| reply.g|
|00000ce0| 6f 6f 64 20 74 68 65 6e | 0d 20 20 20 62 65 67 69 |ood then|.   begi|
|00000cf0| 6e 09 7b 61 6e 79 74 68 | 69 6e 67 20 74 6f 20 64 |n.{anyth|ing to d|
|00000d00| 6f 7d 0d 20 20 20 20 52 | 65 73 65 74 28 73 6f 75 |o}.    R|eset(sou|
|00000d10| 72 63 65 2c 20 72 65 70 | 6c 79 2e 66 4e 61 6d 65 |rce, rep|ly.fName|
|00000d20| 29 3b 0d 20 20 20 20 70 | 72 6f 6d 70 74 53 74 72 |);.    p|romptStr|
|00000d30| 69 6e 67 20 3a 3d 20 27 | 43 68 6f 6f 73 65 20 44 |ing := '|Choose D|
|00000d40| 69 72 65 63 74 6f 72 79 | 20 4e 61 6d 65 27 3b 0d |irectory| Name';.|
|00000d50| 20 20 20 20 69 6e 69 74 | 54 65 78 74 20 3a 3d 20 |    init|Text := |
|00000d60| 63 6f 6e 63 61 74 28 72 | 65 70 6c 79 2e 66 4e 61 |concat(r|eply.fNa|
|00000d70| 6d 65 2c 27 2e 44 69 72 | 27 29 3b 0d 20 20 20 20 |me,'.Dir|');.    |
|00000d80| 53 46 50 75 74 46 69 6c | 65 28 74 6f 70 4c 65 66 |SFPutFil|e(topLef|
|00000d90| 74 2c 20 70 72 6f 6d 70 | 74 53 74 72 69 6e 67 2c |t, promp|tString,|
|00000da0| 69 6e 69 74 54 65 78 74 | 2c 64 69 61 6c 6f 67 48 |initText|,dialogH|
|00000db0| 6f 6f 6b 2c 72 65 70 6c | 79 29 3b 20 20 20 20 20 |ook,repl|y);     |
|00000dc0| 20 0d 20 20 20 20 72 65 | 77 72 69 74 65 28 66 69 | .    re|write(fi|
|00000dd0| 6e 69 73 68 2c 20 72 65 | 70 6c 79 2e 66 4e 61 6d |nish, re|ply.fNam|
|00000de0| 65 29 3b 0d 20 20 20 20 | 69 66 20 72 65 70 6c 79 |e);.    |if reply|
|00000df0| 2e 67 6f 6f 64 20 74 68 | 65 6e 20 62 65 67 69 6e |.good th|en begin|
|00000e00| 09 7b 73 74 69 6c 6c 20 | 73 6f 6d 65 74 68 69 6e |.{still |somethin|
|00000e10| 67 20 74 6f 20 64 6f 7d | 0d 20 20 20 20 77 68 69 |g to do}|.    whi|
|00000e20| 6c 65 20 6e 6f 74 20 65 | 6f 66 28 73 6f 75 72 63 |le not e|of(sourc|
|00000e30| 65 29 20 64 6f 0d 20 20 | 20 20 20 62 65 67 69 6e |e) do.  |   begin|
|00000e40| 09 7b 77 72 69 74 65 20 | 61 6e 20 65 6e 74 72 79 |.{write |an entry|
|00000e50| 7d 0d 20 20 20 20 20 20 | 66 69 6e 64 3b 0d 20 20 |}.      |find;.  |
|00000e60| 20 20 20 20 70 65 65 6c | 3b 0d 20 20 20 20 20 20 |    peel|;.      |
|00000e70| 66 6f 72 20 69 6e 64 65 | 78 20 3a 3d 20 30 20 74 |for inde|x := 0 t|
|00000e80| 6f 20 36 20 64 6f 0d 20 | 20 20 20 20 20 20 77 72 |o 6 do. |      wr|
|00000e90| 69 74 65 28 66 69 6e 69 | 73 68 2c 20 69 74 65 6d |ite(fini|sh, item|
|00000ea0| 5b 69 6e 64 65 78 5d 2c | 63 68 72 28 39 29 29 3b |[index],|chr(9));|
|00000eb0| 09 7b 74 61 62 20 64 65 | 6c 69 6d 69 74 20 74 68 |.{tab de|limit th|
|00000ec0| 65 20 66 69 65 6c 64 73 | 7d 0d 20 20 20 20 20 20 |e fields|}.      |
|00000ed0| 77 72 69 74 65 6c 6e 28 | 66 69 6e 69 73 68 2c 20 |writeln(|finish, |
|00000ee0| 69 74 65 6d 5b 37 5d 29 | 3b 09 7b 43 61 72 72 69 |item[7])|;.{Carri|
|00000ef0| 61 67 65 52 65 74 75 72 | 6e 20 64 65 6c 69 6d 69 |ageRetur|n delimi|
|00000f00| 74 20 74 68 65 20 72 65 | 63 6f 72 64 73 7d 0d 20 |t the re|cords}. |
|00000f10| 20 20 20 20 65 6e 64 3b | 09 7b 6f 66 20 77 72 69 |    end;|.{of wri|
|00000f20| 74 65 20 61 6e 20 65 6e | 74 72 79 7d 0d 20 20 20 |te an en|try}.   |
|00000f30| 20 63 6c 6f 73 65 28 66 | 69 6e 69 73 68 29 3b 0d | close(f|inish);.|
|00000f40| 20 20 20 20 65 6e 64 3b | 09 7b 6f 66 20 73 74 69 |    end;|.{of sti|
|00000f50| 6c 6c 20 73 6f 6d 65 74 | 68 69 6e 67 7d 0d 20 20 |ll somet|hing}.  |
|00000f60| 20 20 63 6c 6f 73 65 28 | 73 6f 75 72 63 65 29 3b |  close(|source);|
|00000f70| 0d 20 20 20 65 6e 64 3b | 09 7b 6f 66 20 61 6e 79 |.   end;|.{of any|
|00000f80| 74 68 69 6e 67 20 74 6f | 20 64 6f 7d 0d 20 65 6e |thing to| do}. en|
|00000f90| 64 3b 7b 6f 66 70 72 6f | 63 65 64 75 72 65 20 4d |d;{ofpro|cedure M|
|00000fa0| 61 73 73 61 67 65 7d 0d | 70 72 6f 63 65 64 75 72 |assage}.|procedur|
|00000fb0| 65 20 44 6f 41 70 70 6c | 65 4d 65 6e 75 28 74 68 |e DoAppl|eMenu(th|
|00000fc0| 65 49 74 65 6d 20 3a 20 | 69 6e 74 65 67 65 72 29 |eItem : |integer)|
|00000fd0| 3b 0d 20 76 61 72 0d 20 | 20 72 65 66 4e 75 6d 20 |;. var. | refNum |
|00000fe0| 3a 20 69 6e 74 65 67 65 | 72 3b 0d 20 20 6e 61 6d |: intege|r;.  nam|
|00000ff0| 65 20 3a 20 53 74 72 32 | 35 35 3b 0d 62 65 67 69 |e : Str2|55;.begi|
|00001000| 6e 0d 20 69 66 20 74 68 | 65 49 74 65 6d 20 3d 20 |n. if th|eItem = |
|00001010| 31 20 74 68 65 6e 0d 20 | 20 74 68 65 49 74 65 6d |1 then. | theItem|
|00001020| 20 3a 3d 20 41 6c 65 72 | 74 28 31 30 30 34 2c 20 | := Aler|t(1004, |
|00001030| 6e 69 6c 29 0d 20 65 6c | 73 65 0d 20 20 62 65 67 |nil). el|se.  beg|
|00001040| 69 6e 0d 20 20 20 47 65 | 74 49 74 65 6d 28 6d 79 |in.   Ge|tItem(my|
|00001050| 4d 65 6e 75 73 5b 31 5d | 2c 20 74 68 65 49 74 65 |Menus[1]|, theIte|
|00001060| 6d 2c 20 6e 61 6d 65 29 | 3b 0d 20 20 20 72 65 66 |m, name)|;.   ref|
|00001070| 4e 75 6d 20 3a 3d 20 4f | 70 65 6e 44 65 73 6b 41 |Num := O|penDeskA|
|00001080| 63 63 28 6e 61 6d 65 29 | 3b 0d 20 20 65 6e 64 3b |cc(name)|;.  end;|
|00001090| 0d 20 65 6e 64 3b 09 7b | 6f 66 20 70 72 6f 63 65 |. end;.{|of proce|
|000010a0| 64 75 72 65 20 44 6f 41 | 70 70 6c 65 4d 65 6e 75 |dure DoA|ppleMenu|
|000010b0| 7d 0d 70 72 6f 63 65 64 | 75 72 65 20 44 6f 46 69 |}.proced|ure DoFi|
|000010c0| 6c 65 4d 65 6e 75 28 74 | 68 65 49 74 65 6d 20 3a |leMenu(t|heItem :|
|000010d0| 20 69 6e 74 65 67 65 72 | 29 3b 0d 20 62 65 67 69 | integer|);. begi|
|000010e0| 6e 0d 20 20 63 61 73 65 | 20 74 68 65 49 74 65 6d |n.  case| theItem|
|000010f0| 20 6f 66 0d 20 20 20 31 | 20 3a 20 51 75 69 74 46 | of.   1| : QuitF|
|00001100| 69 6c 65 3b 0d 20 20 20 | 65 6e 64 3b 09 7b 6f 66 |ile;.   |end;.{of|
|00001110| 20 63 61 73 65 7d 0d 20 | 20 65 6e 64 3b 09 7b 6f | case}. | end;.{o|
|00001120| 66 20 70 72 6f 63 65 64 | 75 72 65 20 44 6f 46 69 |f proced|ure DoFi|
|00001130| 6c 65 4d 65 6e 75 7d 0d | 70 72 6f 63 65 64 75 72 |leMenu}.|procedur|
|00001140| 65 20 44 6f 4d 61 73 73 | 4d 65 6e 75 28 74 68 65 |e DoMass|Menu(the|
|00001150| 49 74 65 6d 20 3a 20 69 | 6e 74 65 67 65 72 29 3b |Item : i|nteger);|
|00001160| 0d 20 62 65 67 69 6e 0d | 20 20 63 61 73 65 20 74 |. begin.|  case t|
|00001170| 68 65 49 74 65 6d 20 6f | 66 0d 20 20 20 31 20 3a |heItem o|f.   1 :|
|00001180| 20 4d 61 73 73 61 67 65 | 3b 0d 20 20 65 6e 64 3b | Massage|;.  end;|
|00001190| 09 7b 6f 66 20 63 61 73 | 65 7d 0d 20 65 6e 64 3b |.{of cas|e}. end;|
|000011a0| 09 7b 6f 66 20 70 72 6f | 63 65 64 75 72 65 44 6f |.{of pro|cedureDo|
|000011b0| 4d 61 73 73 4d 65 6e 75 | 7d 0d 70 72 6f 63 65 64 |MassMenu|}.proced|
|000011c0| 75 72 65 20 53 65 6c 65 | 63 74 4d 65 6e 75 28 73 |ure Sele|ctMenu(s|
|000011d0| 65 6c 65 63 74 69 6f 6e | 20 3a 20 6c 6f 6e 67 69 |election| : longi|
|000011e0| 6e 74 29 3b 0d 20 62 65 | 67 69 6e 20 7b 70 72 6f |nt);. be|gin {pro|
|000011f0| 63 65 64 75 72 65 20 53 | 65 6c 65 63 74 4d 65 6e |cedure S|electMen|
|00001200| 75 7d 0d 20 20 63 61 73 | 65 20 48 69 57 6f 72 64 |u}.  cas|e HiWord|
|00001210| 28 73 65 6c 65 63 74 69 | 6f 6e 29 20 6f 66 0d 20 |(selecti|on) of. |
|00001220| 20 20 61 70 70 6c 65 4d | 65 6e 75 3a 09 44 6f 41 |  appleM|enu:.DoA|
|00001230| 70 70 6c 65 4d 65 6e 75 | 28 4c 6f 57 6f 72 64 28 |ppleMenu|(LoWord(|
|00001240| 73 65 6c 65 63 74 69 6f | 6e 29 29 3b 0d 20 20 20 |selectio|n));.   |
|00001250| 46 69 6c 65 4d 65 6e 75 | 3a 09 44 6f 46 69 6c 65 |FileMenu|:.DoFile|
|00001260| 4d 65 6e 75 28 4c 6f 57 | 6f 72 64 28 73 65 6c 65 |Menu(LoW|ord(sele|
|00001270| 63 74 69 6f 6e 29 29 3b | 0d 20 20 20 4d 61 73 73 |ction));|.   Mass|
|00001280| 4d 65 6e 75 20 3a 09 44 | 6f 4d 61 73 73 4d 65 6e |Menu :.D|oMassMen|
|00001290| 75 28 4c 6f 57 6f 72 64 | 28 73 65 6c 65 63 74 69 |u(LoWord|(selecti|
|000012a0| 6f 6e 29 29 3b 0d 20 20 | 65 6e 64 3b 0d 20 48 69 |on));.  |end;. Hi|
|000012b0| 4c 69 74 65 4d 65 6e 75 | 28 30 29 3b 0d 20 65 6e |LiteMenu|(0);. en|
|000012c0| 64 3b 7b 6f 66 20 70 72 | 6f 63 65 64 75 72 65 20 |d;{of pr|ocedure |
|000012d0| 53 65 6c 65 63 74 4d 65 | 6e 75 7d 20 0d 70 72 6f |SelectMe|nu} .pro|
|000012e0| 63 65 64 75 72 65 20 4b | 65 79 45 76 65 6e 74 20 |cedure K|eyEvent |
|000012f0| 28 74 68 65 4b 65 79 20 | 3a 20 63 68 61 72 29 3b |(theKey |: char);|
|00001300| 0d 20 62 65 67 69 6e 0d | 20 20 69 66 20 42 69 74 |. begin.|  if Bit|
|00001310| 54 73 74 28 40 74 68 65 | 45 76 74 2e 6d 6f 64 69 |Tst(@the|Evt.modi|
|00001320| 66 69 65 72 73 2c 20 37 | 29 20 74 68 65 6e 20 7b |fiers, 7|) then {|
|00001330| 63 68 65 63 6b 20 66 6f | 72 20 63 6f 6d 6d 61 6e |check fo|r comman|
|00001340| 64 20 6b 65 79 7d 0d 20 | 20 20 53 65 6c 65 63 74 |d key}. |  Select|
|00001350| 4d 65 6e 75 28 4d 65 6e | 75 4b 65 79 28 74 68 65 |Menu(Men|uKey(the|
|00001360| 4b 65 79 29 29 3b 0d 20 | 65 6e 64 3b 09 7b 6f 66 |Key));. |end;.{of|
|00001370| 20 4b 65 79 45 76 65 6e | 74 7d 0d 70 72 6f 63 65 | KeyEven|t}.proce|
|00001380| 64 75 72 65 20 57 69 6e | 64 6f 77 55 70 64 61 74 |dure Win|dowUpdat|
|00001390| 65 3b 0d 20 62 65 67 69 | 6e 09 7b 70 72 6f 63 65 |e;. begi|n.{proce|
|000013a0| 64 75 72 65 20 57 69 6e | 64 6f 77 55 70 64 61 74 |dure Win|dowUpdat|
|000013b0| 65 7d 0d 20 20 74 68 65 | 57 69 6e 64 6f 77 20 3a |e}.  the|Window :|
|000013c0| 3d 20 77 69 6e 64 6f 77 | 50 74 72 28 74 68 65 45 |= window|Ptr(theE|
|000013d0| 76 74 2e 6d 65 73 73 61 | 67 65 29 3b 0d 20 20 53 |vt.messa|ge);.  S|
|000013e0| 65 74 50 6f 72 74 28 74 | 68 65 57 69 6e 64 6f 77 |etPort(t|heWindow|
|000013f0| 29 3b 0d 20 20 45 72 61 | 73 65 52 65 63 74 28 74 |);.  Era|seRect(t|
|00001400| 68 65 57 69 6e 64 6f 77 | 5e 2e 70 6f 72 74 52 65 |heWindow|^.portRe|
|00001410| 63 74 29 3b 0d 20 20 44 | 72 61 77 43 6f 6e 74 72 |ct);.  D|rawContr|
|00001420| 6f 6c 73 28 74 68 65 57 | 69 6e 64 6f 77 29 3b 0d |ols(theW|indow);.|
|00001430| 20 20 44 72 61 77 47 72 | 6f 77 49 63 6f 6e 28 74 |  DrawGr|owIcon(t|
|00001440| 68 65 57 69 6e 64 6f 77 | 29 3b 0d 20 20 45 6e 64 |heWindow|);.  End|
|00001450| 55 70 64 61 74 65 28 74 | 68 65 57 69 6e 64 6f 77 |Update(t|heWindow|
|00001460| 29 3b 0d 20 65 6e 64 3b | 09 7b 6f 66 20 70 72 6f |);. end;|.{of pro|
|00001470| 63 65 64 75 72 65 20 57 | 69 6e 64 6f 77 55 70 64 |cedure W|indowUpd|
|00001480| 61 74 65 7d 0d 70 72 6f | 63 65 64 75 72 65 20 57 |ate}.pro|cedure W|
|00001490| 69 6e 64 6f 77 41 63 74 | 69 76 61 74 65 3b 0d 20 |indowAct|ivate;. |
|000014a0| 62 65 67 69 6e 09 7b 70 | 72 6f 63 65 64 75 72 65 |begin.{p|rocedure|
|000014b0| 20 57 69 6e 64 6f 77 41 | 63 74 69 76 61 74 65 7d | WindowA|ctivate}|
|000014c0| 0d 20 20 57 69 6e 64 6f | 77 55 70 64 61 74 65 3b |.  Windo|wUpdate;|
|000014d0| 0d 20 65 6e 64 3b 09 7b | 6f 66 20 70 72 6f 63 65 |. end;.{|of proce|
|000014e0| 64 75 72 65 20 57 69 6e | 64 6f 77 41 63 74 69 76 |dure Win|dowActiv|
|000014f0| 61 74 65 7d 0d 0d 62 65 | 67 69 6e 09 7b 6d 61 69 |ate}..be|gin.{mai|
|00001500| 6e 20 70 72 6f 67 72 61 | 6d 7d 0d 20 53 65 74 55 |n progra|m}. SetU|
|00001510| 70 53 79 73 3b 0d 20 72 | 65 70 65 61 74 0d 20 20 |pSys;. r|epeat.  |
|00001520| 55 70 64 61 74 65 53 79 | 73 3b 0d 20 20 69 66 20 |UpdateSy|s;.  if |
|00001530| 47 65 74 4e 65 78 74 45 | 76 65 6e 74 28 65 76 65 |GetNextE|vent(eve|
|00001540| 72 79 45 76 65 6e 74 2c | 74 68 65 45 76 74 29 20 |ryEvent,|theEvt) |
|00001550| 74 68 65 6e 0d 20 20 20 | 63 61 73 65 20 74 68 65 |then.   |case the|
|00001560| 45 76 74 2e 77 68 61 74 | 20 6f 66 0d 20 20 20 20 |Evt.what| of.    |
|00001570| 6d 6f 75 73 65 44 6f 77 | 6e 3a 20 63 61 73 65 20 |mouseDow|n: case |
|00001580| 46 69 6e 64 57 69 6e 64 | 6f 77 28 74 68 65 45 76 |FindWind|ow(theEv|
|00001590| 74 2e 77 68 65 72 65 2c | 20 74 68 65 57 69 6e 64 |t.where,| theWind|
|000015a0| 6f 77 29 20 6f 66 0d 20 | 20 20 20 20 69 6e 4d 65 |ow) of. |    inMe|
|000015b0| 6e 75 42 61 72 20 3a 20 | 53 65 6c 65 63 74 4d 65 |nuBar : |SelectMe|
|000015c0| 6e 75 28 4d 65 6e 75 53 | 65 6c 65 63 74 28 74 68 |nu(MenuS|elect(th|
|000015d0| 65 45 76 74 2e 77 68 65 | 72 65 29 29 3b 0d 20 20 |eEvt.whe|re));.  |
|000015e0| 20 20 20 69 6e 53 79 73 | 57 69 6e 64 6f 77 20 3a |   inSys|Window :|
|000015f0| 20 53 79 73 74 65 6d 43 | 6c 69 63 6b 28 74 68 65 | SystemC|lick(the|
|00001600| 45 76 74 2c 20 74 68 65 | 57 69 6e 64 6f 77 29 3b |Evt, the|Window);|
|00001610| 0d 20 20 20 20 20 65 6e | 64 3b 0d 20 20 20 20 6b |.     en|d;.    k|
|00001620| 65 79 44 6f 77 6e 2c 61 | 75 74 6f 4b 65 79 3a 20 |eyDown,a|utoKey: |
|00001630| 4b 65 79 45 76 65 6e 74 | 28 43 68 72 28 74 68 65 |KeyEvent|(Chr(the|
|00001640| 45 76 74 2e 6d 65 73 73 | 61 67 65 20 6d 6f 64 20 |Evt.mess|age mod |
|00001650| 32 35 36 29 29 3b 0d 20 | 20 20 20 75 70 64 61 74 |256));. |   updat|
|00001660| 65 45 76 74 20 3a 20 57 | 69 6e 64 6f 77 55 70 64 |eEvt : W|indowUpd|
|00001670| 61 74 65 3b 0d 20 20 20 | 20 61 63 74 69 76 61 74 |ate;.   | activat|
|00001680| 65 45 76 74 20 3a 20 57 | 69 6e 64 6f 77 41 63 74 |eEvt : W|indowAct|
|00001690| 69 76 61 74 65 3b 0d 20 | 20 20 65 6e 64 3b 09 7b |ivate;. |  end;.{|
|000016a0| 6f 66 20 63 61 73 65 20 | 74 68 65 45 76 74 7d 0d |of case |theEvt}.|
|000016b0| 20 20 75 6e 74 69 6c 20 | 64 6f 6e 65 3b 0d 65 6e |  until |done;.en|
|000016c0| 64 2e 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |d.......|........|
|000016d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000016e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000016f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001700| 00 00 01 00 00 00 01 44 | 00 00 00 44 00 00 00 5a |.......D|...D...Z|
|00001710| 00 1a 01 88 00 00 08 00 | 00 00 40 00 00 1e 00 00 |........|..@.....|
|00001720| 00 47 00 3e 05 4d 50 61 | 73 32 61 6c 32 00 00 00 |.G.>.MPa|s2al2...|
|00001730| 0e 44 69 72 4d 61 73 73 | 61 67 65 2e 50 61 73 44 |.DirMass|age.PasD|
|00001740| 02 00 00 00 54 45 58 54 | 45 44 49 54 01 00 ff ff |....TEXT|EDIT....|
|00001750| 00 00 54 45 58 54 45 44 | 49 54 01 00 ff ff ff ff |..TEXTED|IT......|
|00001760| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001770| 00 00 9b f5 10 9a 00 00 | 16 42 00 00 01 9e 2c 02 |........|.B....,.|
|00001780| d0 2e 02 f0 30 03 10 32 | 03 30 34 03 50 36 03 70 |....0..2|.04.P6.p|
|00001790| 38 03 90 3a 03 b0 3c 03 | d0 3e 03 f0 40 04 10 42 |8..:..<.|.>..@..B|
|000017a0| 04 30 44 04 50 46 04 70 | 48 04 90 4a 04 b0 4c 04 |.0D.PF.p|H..J..L.|
|000017b0| d0 4e 04 f0 50 05 10 52 | 05 30 54 05 50 56 05 70 |.N..P..R|.0T.PV.p|
|000017c0| 58 05 91 4e 00 10 5c 05 | d0 5e 05 f0 60 06 10 62 |X..N..\.|.^..`..b|
|000017d0| 06 30 64 06 50 66 06 70 | 68 06 90 6a 06 b0 6c 06 |.0d.Pf.p|h..j..l.|
|000017e0| d0 6e 06 f0 70 07 10 72 | 07 30 74 07 50 76 00 10 |.n..p..r|.0t.Pv..|
|000017f0| 78 07 90 7a 07 b0 7c 07 | d0 7e 07 f0 80 08 10 82 |x..z..|.|.~......|
|00001800| 00 00 00 2a 00 03 00 0c | 00 04 00 09 00 28 00 03 |...*....|.....(..|
|00001810| 01 4b 01 bf 00 26 00 20 | 01 3f 02 02 00 7c 01 25 |.K...&. |.?...|.%|
|00001820| 01 53 01 fc 01 00 01 05 | 00 08 00 10 13 88 00 00 |.S......|........|
|00001830| 00 0a 00 09 06 4d 6f 6e | 61 63 6f 72 00 00 00 04 |.....Mon|acor....|
|00001840| 00 06 00 08 00 00 01 00 | 00 00 01 44 00 00 00 44 |........|...D...D|
|00001850| 00 00 00 5a 00 00 cc 24 | 02 36 00 00 00 1c 00 5a |...Z...$|.6.....Z|
|00001860| 00 02 44 43 46 47 00 00 | 00 1a 45 46 4e 54 00 00 |..DCFG..|..EFNT..|
|00001870| 00 26 45 54 41 42 00 00 | 00 32 00 01 ff ff 00 00 |.&ETAB..|.2......|
|00001880| 00 00 00 00 00 00 03 eb | ff ff 00 00 00 2e 00 00 |........|........|
|00001890| f6 e4 03 ec ff ff 00 00 | 00 3c 00 00 f6 d8 00 00 |........|.<......|
|000018a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000018b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000018c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000018d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000018e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000018f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+